perm filename FONTS.OUT[JLG,SYS] blob
sn#815169 filedate 1986-04-18 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00003 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 1) FONTS.SAI[KA,JLG] and 2) FNTS.SAI[KA,JLG] 4-18-86 20:40 pages 11,11
C00005 00003 1) FONTS.SAI[KA,JLG] and 2) FNTS.SAI[KA,JLG] 4-18-86 20:40 pages 14,14
C00006 ENDMK
C⊗;
1) FONTS.SAI[KA,JLG] and 2) FNTS.SAI[KA,JLG] 4-18-86 20:40 pages 11,11
**** File 1) FONTS.SAI[KA,JLG]/11P/3L
1) BEGIN "TFMPERUSE"
**** File 2) FNTS.SAI[KA,JLG]/11P/3L
2) COMMENT JLG DUE TO THE LACK OF A SPACE CHARACTER IN TFM FILES,
2) THE CHARACTER IN THE '40TH POSITION IS NOT AVAILABLE.
2) NO SPACE CHARACTER IS USED - INSTEAD THE X-POSITION OF
2) THE BEGINNING OF EACH WORD IS SET AND ENTERED INTO THE EL.;
2) BEGIN "TFMPERUSE"
***************
**** File 1) FONTS.SAI[KA,JLG]/11P/28L
1) IF EC > 127 THEN EC ← 127; COMMENT CW CAN ONLY HANDLE EC ≤ 127 FOR NOW;
1) FOR I ← BC THRU EC DO
**** File 2) FNTS.SAI[KA,JLG]/11P/32L
2) FOR I ← BC THRU EC DO
***************
**** File 1) FONTS.SAI[KA,JLG]/11P/59L
1) END; "CHARINFO"
**** File 2) FNTS.SAI[KA,JLG]/11P/61L
2) CW[-1] ← -1; COMMENT USED TO SIGNAL TFM FILE;
2) END; "CHARINFO"
***************
**** File 1) FONTS.SAI[KA,JLG]/12P/131L
1) IF EC > 127 THEN EC ← 127;
1) comment jlg the CW array has 127 for upper bound;
1) end;
**** File 2) FNTS.SAI[KA,JLG]/12P/131L
2) end;
***************
**** File 1) FONTS.SAI[KA,JLG]/12P/192L
1) FNTNUMBER[WHICH] ← -1;
**** File 2) FNTS.SAI[KA,JLG]/12P/190L
2) CW[-1] ← 0; COMMENT USED TO SIGNAL NOT A TFM FILE;
2) FNTNUMBER[WHICH] ← -1;
***************
**** File 1) FONTS.SAI[KA,JLG]/14P/58L
1) IF DEVICE ≠ MIC then BEGIN
1) IFC PASSONE THENC
**** File 2) FNTS.SAI[KA,JLG]/14P/58L
1) FONTS.SAI[KA,JLG] and 2) FNTS.SAI[KA,JLG] 4-18-86 20:40 pages 14,14
2) IF DEVICE ≠ MIC THEN
2) BEGIN
2) IFC PASSONE THENC
***************
**** File 1) FONTS.SAI[KA,JLG]/14P/68L
1) PERUSEFONT(WHICH, CHAN, FILENAME, PFOUNDIT) ;
1) END;
1) IF NULSTR(BFILENAME) THEN TES Didn't specify special name for XGP driver ;
**** File 2) FNTS.SAI[KA,JLG]/14P/69L
2) PERUSEFONT(WHICH, CHAN, FILENAME, PFOUNDIT) ;
2) END;
2) IF NULSTR(BFILENAME) THEN TES Didn't specify special name for XGP driver ;
***************